program task_4;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
  a, b, aa, ag: real;
begin
  writeln('enter a:');
  readln(a);
  writeln('enter b:');
  readln(b);

  aa := (a + b)/2;
  ag := sqrt(a * b);

  writeln('a = ', a:2:2, '; b = ', b:2:2);
  writeln('simple average= ', aa:3:3, '; geometrical mean = ', ag:3:3);
  readln;
end.

